unit diadbf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;

type
  Tfdiadbf = class(TForm)
    diariodb: TTable;
    diariodbf: TTable;
    dsdiadb: TDataSource;
    dsdiadbf: TDataSource;
    diariodbLancamento: TAutoIncField;
    diariodbData: TDateField;
    diariodbCredora: TStringField;
    diariodbDevedora: TStringField;
    diariodbHp: TFloatField;
    diariodbComplemento: TStringField;
    diariodbValor: TFloatField;
    diariodbUsuario: TStringField;
    diariodbReferencia: TStringField;
    diariodbConsolidado: TBooleanField;
    diariodbfLANCAMENTO: TFloatField;
    diariodbfDATA: TDateField;
    diariodbfDEVEDORA: TStringField;
    diariodbfCREDORA: TStringField;
    diariodbfHP: TSmallintField;
    diariodbfCOMPLEMENT: TStringField;
    diariodbfVALOR: TFloatField;
    diariodbfUSUARIO: TStringField;
    diariodbfREFERENCIA: TStringField;
    diariodbfCONSOLIDAD: TStringField;
    Button1: TButton;
    DBGrid3: TDBGrid;
    Procura: TQuery;
    ProcuraLANCAMENTO: TFloatField;
    ProcuraDATA: TDateField;
    ProcuraDEVEDORA: TStringField;
    ProcuraCREDORA: TStringField;
    ProcuraHP: TSmallintField;
    ProcuraCOMPLEMENT: TStringField;
    ProcuraVALOR: TFloatField;
    ProcuraUSUARIO: TStringField;
    ProcuraREFERENCIA: TStringField;
    ProcuraCONSOLIDAD: TStringField;
    dsprocura: TDataSource;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fdiadbf: Tfdiadbf;

implementation

uses diariomanutencao;

{$R *.dfm}

procedure Tfdiadbf.Button1Click(Sender: TObject);
var
lancamento, hp : integer;
data       : tdate;
devedora, credora, complemento, usuario, referencia, consolidado  : string;
valor : currency;
editsql : string;
begin


diariodb.first;
while not diariodb.Eof do
 begin
 data       := diariodbData.Value;
 lancamento := diariodbLancamento.value;
 devedora   := diariodbDevedora.value;
 credora    := diariodbcredora.Value;
 hp         := diariodbHp.AsInteger;
 complemento := diariodbComplemento.value;
 valor := diariodbValor.value;
 usuario := diariodbusuario.Value;
 referencia := diariodbReferencia.value;
 diariodbf.append;
 diariodbfLANCAMENTO.value := lancamento;
 diariodbfDATA.value       := data;
 diariodbfDEVEDORA.value   := devedora;
 diariodbfcredora.Value    := credora;
 diariodbfHP.value         := hp;
 diariodbfCOMPLEMENT.value := complemento;
 diariodbfVALOR.value      := valor;
 diariodbfUSUARIO.value    := usuario;
 diariodbfREFERENCIA.value := referencia;
 diariodb.next;
end;
procura.Close;
procura.Open;





end;


end.
